#!/usr/bin/perl

use bignum;

$MAX = 100;
for ($i = 2; $i <= $MAX; $i++) {
	for ($j = 2; $j <= $MAX; $j++) {
		print $i ** $j,"\n";
	}
}
